МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ „ЛЬВІВСЬКА ПОЛІТЕХНІКА”
Інститут економіки і менеджменту
Розрахункова робота з інформатики
по темі «Pascal»
Варіант № 7
ЛЬВІВ – 2006
Задача №1(2) про трикутник
Трикутник задано координатами вершин А(0;0), B(7;6), та C(-7;8);
Обчислити висоту h(b) та бісектрису w(a);
program zav2;
Uses Crt;
Var x1,x2,x3,y1,y2,y3,a,b,c,s,h,p,w:real;
begin clrscr;
writeln('vvedit koordynaty');
readln(x1,y1,x2,y2,x3,y3);
a:=sqrt(sqr(x3-x2)+sqr(y3-y2));
b:=sqrt(sqr(x1-x3)+sqr(y1-y3));
c:=sqrt(sqr(x1-x2)+sqr(y1-y2));
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
h:=2*s/b;
w:=2/(b+c)*(sqrt(b*c*p*(p-a)));
writeln('vysota- ',h:5:2,' bisektrysa- ',w:5:2);
readln
end.
Результати
vvedit koordynaty
0 0 7 6 -7 8
vysota- 9.22 bisektrysa- 6.95
Задача №2(3b) Розгалуження.
. Нехай оплата робіт залежить від типу виконаної роботи чи виду підприємницької д-сті (A,B,C) і нараховується за формулою
Де i номер варіанта. Для робіт типу А податок складає-10%, для робіт типу В податок складає-15%, для робіт типу С-20%. Увести тип робіт. Вивести нараховану суму, суму податку та суму до видачі.
Program zav3b;
Uses Crt;
Var y,s,p:real;x:string;
begin clrscr;
writeln('vvedit typ roboty'); readln(x);
if x='A' then
y:=100*abs(cos((7*7)+1)-abs(sin(2*7)-5.76)+50);
p:=y*0.1; s:=y-p; if x='B' then
y:=150*abs(sin(7)-cos(7*7*7)*sin((7*7)-4.2)+4.27+100);
p:=y*0.15; s:=y-p;
if x='C' then
y:=200*abs(abs(sin(12*7)*cos(abs(2*7))/3)+4.21+135);
p:=y*0.2; s:=y-p;
writeln('podatok- ',p:7:2);
writeln('narahovana suma- ',y:7:2);
writeln('suma do vydachi- ',s:7:2);
readln
end.
Результати
vvedit typ roboty
B
podatok- 3166.28
narahovana suma- 15831.39
suma do vydachi- 12665.12
Задача №3(5) Цикли. Таблиця мір.
Протабулювати таблицю відповідностей між мірами. Початкове значення міри, крок, зміни цього значення та кількість рядків у таблиці задати самостійно у режимі діалогу. Оформити таблицю якнайкраще, використовуючи формати виведення.
1 галлон = 0,0347 сак = 3,785 л
Program zav5;
Uses crt;
const line='+++--------++++-----------+++';
Var galon,sak,litr,krok:real; i,kil:integer;
begin clrscr;
writeln('vvesty znachennya');
readln(sak);
writeln('vvesty krok');
readln(krok);
writeln('vvesty kilkist ryadkiv');
readln(kil);
writeln;
writeln(line);
writeln('galon sak litr');
writeln(line);
for i:=1 to kil do begin
galon:=0.0347*sak;
litr:=galon/3.785;
writeln(galon:7:2, sak:7:2, litr:7:2);
sak:=sak+krok;
end;
readln
end.
Результати
vvesty znachennya
3
vvesty krok
4
vvesty kilkist ryadkiv
5
+++--------++++-----------+++
galon sak litr
+++--------++++-----------+++
0.10 3.00 0.03
0.24 7.00 0.06
0.38 11.00 0.10
0.52 15.00 0.14
0.66 19.00 0.17
Задача №4(6) Цикли. Обчислення скінченних сум і добутків.
Обчислити значення виразу для z. z=b tg a; де i номер варіанта.
program zav6;
Uses crt;
Var x:integer; a,b,z:real;
begin clrscr;
a:=0;
for x:=7 to 15 do begin
a:=a+cos(x*x*x)/2.1+cos(x*x)/1.1-8.3*sin(3*x+1);
writeln('a=',a:10:4);
end;
b:=1;
for x:=7 to 12 do
b:=b*sin(x*x)*cos(x*x*x)-sin(x)+5.2;
writeln('b=',b:10:4);
z:=b*sin(a)/cos(a);
writeln('z=',z:10:4); readln
end.
Результати
a= -0.0551
a= 0.9250
a= -0.1467
a= 4.2586
a= 0.0659
a= 6.6718
a= 0.9668
a= 8.0960
a= 1.2300
b= 1.6583
z= 4.6761
Задача №5 (8) Цикли. Табулювання функції і пошук даних.
Протабулювати функцію y=(cos(x*x)-0.51(*sin(3x-4)-4.44; на проміжку (0;i( з кроком h=0.1*i. Результати обчислень вивести на екран у вигляді таблиці пар чисел x,y.
Визначити суму додатніх значень функції та кількість від’ємних.
program Zav8;
Uses Crt;
Var x,h,y,k,s:real; i:integer;
begin clrscr;
x:=0; h:=0.1*7; k:=0; s:=0;
for i:=1 to 7 do begin
y:=abs(cos(x*x)-0.51)*sin(3*x-4)-4.44;
if y>0 then begin
s:=s+y; end;
if y<0 then begin
k:=k+1; end;
x:=x+h;
writeln('x=',x:5:1,' y=',y:5:2)...
